home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / UPDATE.BAS < prev    next >
Encoding:
BASIC Source File  |  2000-09-26  |  894 b   |  59 lines
  1. $STRING 1
  2. $INCLUDE "REGNAMES.INC"
  3. GemDOS$="GemDOS-V1.0"
  4.  
  5. if command$<>GemDOS$ then
  6.  screen 12
  7.  reg %ax,0
  8.  call interrupt &H33
  9.  reg %ax,1
  10.  call interrupt &H33
  11. end if
  12.  
  13. x=15  *8
  14. y=12  *16
  15. w=50  *8
  16. h=6  *16
  17. x1=x
  18. x2=x+w
  19. y1=y
  20. y2=y+h
  21.  
  22. req=6+int(y2-y1+1)*2*int((x2-y1+16)/16)*4
  23. dim dynamic win%(req)
  24.  
  25. call MouseOff
  26. get (x1,y1)-(x2,y2),win%
  27. line (x1,y1)-(x2,y2),0,bf
  28. line (x1,y2)-(x1,y1),15
  29. line -(x2,y1),15
  30. line (x1+1,y2)-(x2,y2),7
  31. line -(x2,y1+1),7
  32. color 15
  33.  
  34. t$="Disk Transfer - Update"
  35. locate 14,17+(46-len(t$))/2
  36. print t$
  37. locate 16,19
  38. print "Die noch im Cache befindlichen Daten werden"
  39. locate 17,19
  40. print "auf die Datentr„ger geschrieben..."
  41. call MouseOn
  42.  
  43. delay 5
  44.  
  45. call MouseOff
  46. put (x1,y1),win%,pset
  47. call MouseOn
  48. end
  49.  
  50. sub MouseOff shared
  51.  reg %ax,2
  52.  call interrupt &H33
  53. end sub
  54.  
  55. sub MouseOn shared
  56.  reg %ax,1
  57.  call interrupt &H33
  58. end sub
  59.